home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / anti-i1a / antiid~1.frm < prev    next >
Text File  |  1999-09-25  |  9KB  |  354 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Anti-Idle"
  5.    ClientHeight    =   1575
  6.    ClientLeft      =   150
  7.    ClientTop       =   720
  8.    ClientWidth     =   4695
  9.    BeginProperty Font 
  10.       Name            =   "Times New Roman"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "Anti Idle.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    ScaleHeight     =   1575
  22.    ScaleWidth      =   4695
  23.    StartUpPosition =   3  'Windows Default
  24.    Begin VB.Timer Timer1 
  25.       Interval        =   1000
  26.       Left            =   2160
  27.       Top             =   480
  28.    End
  29.    Begin VB.CommandButton CmdIdle 
  30.       Caption         =   "Anti-Idle is On"
  31.       Height          =   495
  32.       Left            =   0
  33.       Style           =   1  'Graphical
  34.       TabIndex        =   9
  35.       Top             =   1080
  36.       Width           =   4695
  37.    End
  38.    Begin VB.Frame Frame1 
  39.       Caption         =   "# of Idles Clicked"
  40.       Height          =   975
  41.       Left            =   0
  42.       TabIndex        =   0
  43.       Top             =   0
  44.       Width           =   2295
  45.       Begin VB.Label lbl46Min1 
  46.          Alignment       =   2  'Center
  47.          BackStyle       =   0  'Transparent
  48.          Caption         =   "0"
  49.          BeginProperty Font 
  50.             Name            =   "Times New Roman"
  51.             Size            =   12
  52.             Charset         =   0
  53.             Weight          =   400
  54.             Underline       =   0   'False
  55.             Italic          =   0   'False
  56.             Strikethrough   =   0   'False
  57.          EndProperty
  58.          Height          =   255
  59.          Left            =   1560
  60.          TabIndex        =   4
  61.          Top             =   600
  62.          Width           =   615
  63.       End
  64.       Begin VB.Label lbl10Min1 
  65.          Alignment       =   2  'Center
  66.          BackStyle       =   0  'Transparent
  67.          Caption         =   "0"
  68.          BeginProperty Font 
  69.             Name            =   "Times New Roman"
  70.             Size            =   12
  71.             Charset         =   0
  72.             Weight          =   400
  73.             Underline       =   0   'False
  74.             Italic          =   0   'False
  75.             Strikethrough   =   0   'False
  76.          EndProperty
  77.          Height          =   255
  78.          Left            =   1560
  79.          TabIndex        =   3
  80.          Top             =   240
  81.          Width           =   615
  82.       End
  83.       Begin VB.Label lbl46Min 
  84.          BackStyle       =   0  'Transparent
  85.          Caption         =   "46 Minute Idle:"
  86.          BeginProperty Font 
  87.             Name            =   "Times New Roman"
  88.             Size            =   12
  89.             Charset         =   0
  90.             Weight          =   400
  91.             Underline       =   0   'False
  92.             Italic          =   0   'False
  93.             Strikethrough   =   0   'False
  94.          EndProperty
  95.          Height          =   255
  96.          Left            =   120
  97.          TabIndex        =   2
  98.          Top             =   600
  99.          Width           =   1455
  100.       End
  101.       Begin VB.Label lbl10Min 
  102.          BackStyle       =   0  'Transparent
  103.          Caption         =   "10 Minute Idle:"
  104.          BeginProperty Font 
  105.             Name            =   "Times New Roman"
  106.             Size            =   12
  107.             Charset         =   0
  108.             Weight          =   400
  109.             Underline       =   0   'False
  110.             Italic          =   0   'False
  111.             Strikethrough   =   0   'False
  112.          EndProperty
  113.          Height          =   255
  114.          Left            =   120
  115.          TabIndex        =   1
  116.          Top             =   240
  117.          Width           =   1455
  118.       End
  119.    End
  120.    Begin VB.Frame Frame2 
  121.       Caption         =   "Idle Limit"
  122.       Height          =   975
  123.       Left            =   2400
  124.       TabIndex        =   5
  125.       Top             =   0
  126.       Width           =   2295
  127.       Begin VB.TextBox Text1 
  128.          Alignment       =   2  'Center
  129.          Height          =   315
  130.          Left            =   1200
  131.          MaxLength       =   2
  132.          TabIndex        =   8
  133.          Top             =   480
  134.          Width           =   975
  135.       End
  136.       Begin VB.CommandButton CmdSet 
  137.          Caption         =   "Set Idle Limit"
  138.          Height          =   615
  139.          Left            =   120
  140.          Style           =   1  'Graphical
  141.          TabIndex        =   6
  142.          Top             =   240
  143.          Width           =   975
  144.       End
  145.       Begin VB.Label lblLimit 
  146.          Caption         =   "Enter 1-99:"
  147.          Height          =   255
  148.          Left            =   1200
  149.          TabIndex        =   7
  150.          Top             =   240
  151.          Width           =   975
  152.       End
  153.    End
  154.    Begin VB.Menu mnuFile 
  155.       Caption         =   "&File"
  156.       Begin VB.Menu mnuIdle 
  157.          Caption         =   "&Anti-Idle is On"
  158.          Shortcut        =   {F2}
  159.       End
  160.       Begin VB.Menu bar1 
  161.          Caption         =   "-"
  162.       End
  163.       Begin VB.Menu mnuExit 
  164.          Caption         =   "E&xit"
  165.       End
  166.    End
  167.    Begin VB.Menu mnuTrayMe 
  168.       Caption         =   "&Tray Me"
  169.    End
  170. End
  171. Attribute VB_Name = "Form1"
  172. Attribute VB_GlobalNameSpace = False
  173. Attribute VB_Creatable = False
  174. Attribute VB_PredeclaredId = True
  175. Attribute VB_Exposed = False
  176. Dim Min10 As Integer
  177. Dim Min46 As Integer
  178.  
  179.  
  180.  
  181. Private Sub CmdIdle_Click()
  182.  
  183.  
  184. If CmdIdle.Caption = "Anti-Idle is On" Then
  185. 'Turns Idle Off
  186. CmdIdle.Caption = "Anti-Idle is Off"
  187. CmdIdle.BackColor = vbCyan
  188. mnuIdle.Caption = "&Anti-Idle is Off"
  189. Timer1.Enabled = False
  190.  
  191. Else
  192.  
  193. 'Turns Idle On
  194. CmdIdle.Caption = "Anti-Idle is On"
  195. CmdIdle.BackColor = vbYellow
  196. mnuIdle.Caption = "&Anti-Idle is On"
  197. Timer1.Enabled = True
  198.  
  199. End If
  200.  
  201. End Sub
  202.  
  203. Private Sub CmdSet_Click()
  204.  
  205. 'Exit if textbox contains anything but numbers
  206. If Text1.Text = "" Then Exit Sub
  207. For x = 1 To 99
  208. If Text1.Text = x Then GoTo NextStep:
  209. Next x
  210. Exit Sub
  211.  
  212. NextStep:
  213.  
  214. If CmdSet.Caption = "Set Idle Limit" Then
  215. 'Set Idle Limit
  216. CmdSet.Caption = "Reset Idle Limit"
  217. CmdSet.BackColor = vbYellow
  218. Text1.Locked = True
  219.  
  220. Else
  221.  
  222. 'Reset Idle Limit
  223. CmdSet.Caption = "Set Idle Limit"
  224. CmdSet.BackColor = vbCyan
  225. Text1.Locked = False
  226.  
  227. End If
  228.  
  229. End Sub
  230.  
  231. Private Sub Form_Load()
  232.  
  233. 'Allows only one instance
  234. If App.PrevInstance Then End
  235.  
  236. 'Initial Settings
  237. Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  238. Me.Hide
  239.  
  240. CmdIdle.Caption = "Anti-Idle is On"
  241. CmdIdle.BackColor = vbYellow
  242.  
  243. mnuIdle.Caption = "&Anti-Idle is On"
  244.  
  245. CmdSet.Caption = "Set Idle Limit"
  246. CmdSet.BackColor = vbCyan
  247. Text1.Locked = False
  248.  
  249. Timer1.Enabled = True
  250.  
  251. lbl10Min1.Caption = "0"
  252. lbl46Min1.Caption = "0"
  253.  
  254. 'Add Program to System Tray
  255. With nfIconData
  256.     .hwnd = Me.hwnd
  257.     .uID = Me.icon
  258.     .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
  259.     .uCallbackMessage = WM_MOUSEMOVE
  260.     .hIcon = Form1.icon.Handle
  261.     .szTip = Me.Caption & vbNullChar
  262.     .cbSize = Len(nfIconData)
  263. End With
  264. Shell_NotifyIcon NIM_ADD, nfIconData
  265.  
  266. End Sub
  267.  
  268. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  269.  
  270. 'Tray Options
  271. Dim lMsg As Single
  272.  
  273. lMsg = x / Screen.TwipsPerPixelX
  274. Select Case lMsg
  275.     Case WM_LBUTTONUP
  276.     If Me.Visible = True Then
  277.     
  278.     Me.Hide
  279.     
  280.     Else
  281.     
  282.     Me.Show
  283.     Timeout (0.01)
  284.     AppActivate Me.Caption
  285.     
  286.     End If
  287.     
  288.     Case WM_RBUTTONUP
  289.     Case WM_MOUSEMOVE
  290.     Case WM_LBUTTONDOWN
  291.     Case WM_LBUTTONDBLCLK
  292.     Case WM_RBUTTONDOWN
  293.     Case WM_RBUTTONDBLCLK
  294.     Case Else
  295. End Select
  296.  
  297. End Sub
  298.  
  299. Private Sub mnuExit_Click()
  300.  
  301. End
  302.  
  303. End Sub
  304.  
  305. Private Sub mnuIdle_Click()
  306.  
  307. 'Same as clicking the Button
  308. CmdIdle_Click
  309.  
  310. End Sub
  311.  
  312. Private Sub mnuTrayMe_Click()
  313.  
  314. Me.Hide
  315.  
  316. End Sub
  317.  
  318. Private Sub Timer1_